home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS01.ADF / ABasicStuff / Tools / KeyCodes.bas < prev    next >
BASIC Source File  |  1985-12-04  |  1KB  |  29 lines
  1. 10    SCNCLR
  2. 15    PRINT STRING$(13,"*");" KEYCODES ";STRING$(14,"*")
  3. 20    PRINT"* Press any combination of CTRL,    *"
  4. 25    PRINT"* SHIFT, and ALT, then press any    *"
  5. 30    PRINT"* key to see the keycodes returned  *"
  6. 35    PRINT"* for that combination.             *"
  7. 40    PRINT"* PRESS RETURN OR ENTER TO EXIT.    *"
  8. 45    PRINT STRING$(37,"*")
  9. 55    WHILE CHR%<>13
  10. 60    GET CH$
  11. 65    IF LEN(CH$)=0 AND CHR%<>-2 THEN PRINT ""
  12. 70    IF LEN(CH$)=0 THEN CHR%=-2   ELSE  GOSUB 100
  13. 75    IF LEN(CH$)<>0 THEN PRINT TAB(TB%); CHR%;CHR$(8);"{DECIMAL",H$;TAB(25);O$;TAB(37);CH$
  14. 80    WEND
  15. 85    END
  16. 100   REM SUBROUTINE THAT CONVERTS INPUT CHARACTERS TO PROPER FORMATS
  17. 110   CHR%=ASC(CH$)
  18. 111   IF CHR%<10 THEN TB%=3 ELSE IF CHR%<100 THEN TB%=2 ELSE TB%=1
  19. 120   H$=HEX$(CHR%)
  20. 130   IF LEN(H$)<2 THEN H$="0"+H$
  21. 140   IF LEN(H$)<2 THEN H$="0"+H$
  22. 145   H$=H$+"{HEX"
  23. 150   O$=OCT$(CHR%)
  24. 160   IF LEN(O$)<3 THEN O$="0"+O$
  25. 170   IF LEN(O$)<3 THEN O$="0"+O$
  26. 180   IF LEN(O$)<3 THEN O$="0"+O$
  27. 190   O$=O$+"{OCTAL"
  28. 250   RETURN
  29.